﻿Public Class Usuarios
    Private CIA_Codigo As String
    Private USU_Codigo As String
    Private USU_Usuario As String
    Private USU_Contrasenia As String
    Private USU_Descripcion As String
    Private USU_Admin As String
    Private USU_Activo As String

    Public Sub New()
    End Sub

    Public Sub New(ByVal CIA_Codigo As String, ByVal USU_Codigo As String, ByVal USU_Usuario As String, ByVal USU_Contrasenia As String,
                   ByVal USU_Descripcion As String, ByVal USU_Admin As String, ByVal USU_Activo As String)
        gCIA_Codigo = CIA_Codigo
        gUSU_Codigo = USU_Codigo
        gUSU_Usuario = USU_Usuario
        gUSU_Contrasenia = USU_Contrasenia
        gUSU_Descripcion = USU_Descripcion
        gUSU_Admin = USU_Admin
        gUSU_Activo = USU_Activo
    End Sub

    Public Property gCIA_Codigo() As String
        Get
            Return CIA_Codigo
        End Get
        Set(ByVal value As String)
            CIA_Codigo = value
        End Set
    End Property
    Public Property gUSU_Codigo() As String
        Get
            Return USU_Codigo
        End Get
        Set(ByVal value As String)
            USU_Codigo = value
        End Set
    End Property

    Public Property gUSU_Usuario() As String
        Get
            Return USU_Usuario
        End Get
        Set(ByVal value As String)
            USU_Usuario = value
        End Set
    End Property

    Public Property gUSU_Contrasenia() As String
        Get
            Return USU_Contrasenia
        End Get
        Set(ByVal value As String)
            USU_Contrasenia = value
        End Set
    End Property

    Public Property gUSU_Descripcion() As String
        Get
            Return USU_Descripcion
        End Get
        Set(ByVal value As String)
            USU_Descripcion = value
        End Set
    End Property

    Public Property gUSU_Admin() As String
        Get
            Return USU_Admin
        End Get
        Set(ByVal value As String)
            USU_Admin = value
        End Set
    End Property

    Public Property gUSU_Activo() As String
        Get
            Return USU_Activo
        End Get
        Set(ByVal value As String)
            USU_Activo = value
        End Set
    End Property
End Class
